(FILECREATED "14-FEB-83 11:45:11" {PHYLUM}<GABRIEL>TAKL.;1 1042   

      changes to:  (VARS TAKLCOMS 18L 12L 6L)
		   (FNS LISTN TAKL SHORTERP))


(PRETTYCOMPRINT TAKLCOMS)

(RPAQQ TAKLCOMS ((FNS LISTN TAKL SHORTERP)
		 (VARS 18L 12L 6L)))
(DEFINEQ

(LISTN
  [LAMBDA (N)                                                (* lmm "28-APR-82 21:41")
    (COND
      ((ZEROP N)
	NIL)
      (T (CONS N (LISTN (SUB1 N])

(TAKL
  [LAMBDA (X Y Z)                                            (* lmm "28-APR-82 21:39")
    (COND
      ((NOT (SHORTERP Y X))
	Z)
      (T (TAKL (TAKL (CDR X)
		     Y Z)
	       (TAKL (CDR Y)
		     Z X)
	       (TAKL (CDR Z)
		     X Y])

(SHORTERP
  [LAMBDA (X Y)                                              (* lmm "28-APR-82 21:38")
    (AND Y (OR (NULL X)
	       (SHORTERP (CDR X)
			 (CDR Y])
)

(RPAQQ 18L (18 17 16 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1))

(RPAQQ 12L (12 11 10 9 8 7 6 5 4 3 2 1))

(RPAQQ 6L (6 5 4 3 2 1))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (249 880 (LISTN 259 . 431) (TAKL 433 . 705) (SHORTERP 707 . 878)))))
STOP